<script>on mouseUpglobal turnif turn > 0 thenset the lockScreen to trueput " " into line 2 of field 1put " " into line 3 of field 1put " " into line 4 of field 1put " " into line 5 of field 1put " " into line 6 of field 1put "Crests Claimed: " into line 1 of field 2put "Crests Claimed: " into line 1 of field 3put "Opponents Unhorsed: " into line 2 of field 2put "Opponents Unhorsed: " into line 2 of field 3put "Lances Broken: " into line 3 of field 2put "Lances Broken: " into line 3 of field 3put "Lances Total: " into line 4 of field 3put "Lances Total: " into line 4 of field 2end ifplay "boing"global oppThudScoreglobal turnglobal oppCrestScoreglobal yourCrestScoreglobal oppGoneFlagglobal youGoneFlagglobal youGoThudglobal oppGoesThudglobal oppLanceWinglobal youLanceWinglobal winLoseIf winLose = 1 then go Card 10If winLose = 0 then go to card 2end mouseUp</script>
</part>
<name></name>
<script>On openBackgroundend openBackgroundOn giveResultsglobal oppAimglobal oppLanceFlagglobal yourLanceFlagglobal yourLancesglobal oppLancesglobal oppMissFlagglobal yourMissFlagglobal youThudglobal compThudglobal attackerglobal oppHitBarrierglobal youHitBarrierglobal oppHitHorseglobal youHitHorseglobal aFlagglobal hitYourCrestglobal hitOppCrestglobal yourThudScoreglobal oppThudScoreglobal oppCrestScoreglobal yourCrestScoreglobal oppGoneFlagglobal youGoneFlagglobal xglobal oppGoesThudglobal youGoThudglobal oldOppLancesglobal oldYourLancesglobal oppLanceWinglobal youLanceWinglobal winLoseglobal checkglobal oppcheckglobal youBrokeScoreglobal oppBrokeScore-- Where opponent is aimingIf oppAim =1 then put "Crest of Helm" into line two of field 1If oppAim =2 then put "Helm" into line two of field 1If oppAim =3 then put "Throat Gorget" into line two of field 1If oppAim =4 then put "Dexter Chief" into line two of field 1If oppAim =5 then put "Chief Pale" into line two of field 1If oppAim =6 then put "Sinister Chief" into line two of field 1If oppAim =7 then put "Dexter Fess" into line two of field 1If oppAim =8 then put "Fess Pale" into line two of field 1If oppAim =9 then put "Sinister Fess" into line two of field 1If oppAim =10 then put "Shield Base" into line two of field 1-- Opponent breaks lanceif oppLanceFlag=1 thenput "He Broke Lance!" into line three of field 1put 0 into oppLanceFlagend if-- You break lanceif yourLanceFlag=1 thenput "You Broke Lance!" into line five of field 1put 0 into yourLanceFlagend if-- Opponent MissesIf oppMissFlag=1 thenput "He Missed!" into line three of field 1put 0 into oppMissFlagend if-- You MissIf yourMissFlag=1 thenput "You Missed!" into line five of field 1put 0 into yourMissflagend if-- UnhorsingIf youThud = 1 thenput "He Unhorsed You!" into line 4 of field 1put 0 into youThudadd 1 to oppThudScoreput "Opponents Unhorsed: "&oppThudScore into line 2 of field 2put 1 into youGoThudput 1 into winLoseend ifIf compThud = 1 thenput "You Unhorsed Him!" into line 6 of field 1put 0 into compThudadd 1 to yourThudScoreput "Opponents Unhorsed: "&yourThudScore into line 2 of field 3put 1 into oppGoesThudput 1 into winLoseend if-- FoulIf oppHitBarrier = 1 thenput "FOUL! Opponent Hits Wall" into line 4 of field 1put 0 into oppHitBarrierput oppLances - 1 into oppLancesend ifIf oppHitHorse = 1 thenput "FOUL! Opponent Hits Horse!" into line 4 of field 1put 0 into oppHitHorseput 1 into oppGoneFlagput 1 into winLoseend ifIf youHitBarrier = 1 thenput "FOUL! You Hit Wall" into line 6 of field 1put 0 into youHitBarrierput yourLances - 1 into yourLancesend ifIf youHitHorse = 1 thenput "FOUL! You Hit Horse!" into line 6 of field 1put 0 into youHitHorseput 1 into youGoneFlagput 1 into winLoseend if-- CrestsIf hitYourCrest = 1 thenput "HE TORE YOUR CREST!!!" into line 4 of field 1add 1 to oppCrestScoreput 0 into hitYourCrestend ifIf hitOppCrest = 1 thenput "YOU TORE HIS CREST!!" into line 6 of field 1add 1 to yourCrestScoreput 0 into hitOppCrestend ifset the lockScreen to trueput "Crests Claimed: "&oppCrestScore into line 1 of field 2put "Crests Claimed: "&yourCrestScore into line 1 of field 3put "Opponents Unhorsed: "&yourThudScore into line 2 of field 3put "Opponents Unhorsed: "&oppThudScore into line 2 of field 2put "Lances Broken: "&oppBrokeScore into line 3 of field 2put "Lances Broken: "&youBrokeScore into line 3 of field 3put "Lances Total: "&yourLances into line 4 of field 3put "Lances Total: "&oppLances into line 4 of field 2if oppBrokeScore = 3 then put 1 into oppLanceWinif youBrokeScore = 3 then put 1 into youLanceWinEnd giveResultsOn lanceHitglobal aFlagglobal eFlagglobal attackerglobal oppLancesglobal YourLancesglobal oppLanceFlagglobal yourLanceFlagglobal oppLanceWinglobal youLanceWinglobal checkglobal oppCheckglobal youBrokeScoreglobal oppBrokeScoreglobal winloseIf eFlag =1 then maybeFallIf attacker = 1 thenput 1 into oppLanceFlagadd 1 to oppLancesadd 1 to oppcheckadd 1 to oppBrokeScoreif oppcheck = 3 thenput 1 into winLoseput 0 into oppcheckput 0 into checkend ifend ifif attacker = 2 thenput 1 into yourLanceFlagadd 1 to yourLancesadd 1 to checkadd 1 to youBrokeScoreif check = 3 thenput 1 into winLoseput 0 into checkput 0 into oppcheckend ifend ifput 0 into eFlagIf aFlag = 1 then maybeCrestEnd lanceHitOn missglobal dFlagglobal attackerglobal oppMissFlagglobal yourMissFlagif attacker = 1 then put 1 into oppMissFlagif attacker = 2 then put 1 into yourMissFlagif dFlag = 1 then maybefoulend MissOn diceglobal rollPut the random of 20 into rollEnd diceon maybeFalldiceglobal eFlagglobal rollglobal compThudglobal youThudglobal attackerglobal yourLanceFlagglobal oppLanceFlagIf (eFlag = 1) and (attacker = 1) thenif roll <=6 then put 1 into youThudend ifIf (eFlag = 1) and (attacker = 2) thenif roll <=6 then put 1 into compThudend ifput 0 into eFlagend maybeFallon maybeFoulglobal dFlagglobal rollglobal attackerglobal oppHitBarrierglobal youHitBarrierglobal oppHitHorseglobal youHitHorseput 0 into dFlagdiceIf attacker = 1 and roll <=5 thenput 1 into oppHitBarrierend ifif attacker = 1 and roll >5 and roll <9 thenput 1 into oppHitHorseend ifIf attacker = 2 and roll <=5 thenput 1 into youHitBarrierend ifif attacker = 2 and roll >6 and roll <9 thenput 1 into youHitHorseend ifend maybeFoulOn maybeCrestglobal aFlagglobal hitYourCrestglobal hitOppCrestglobal attackerglobal rollput 0 into aFlagdiceIf attacker = 1 and roll <6 then put 1 into hitYourCrestIf attacker = 2 and roll <6 then put 1 into hitOppCrestend maybeCrest--******************************************On lrCRTglobal attackerglobal CRTdefenseglobal CRToffenseglobal defenseglobal oppDefenseglobal aimPointglobal eFlagglobal dFlagglobal rollglobal tempCompScoreglobal tempYouScoreglobal tempCompMissglobal tempYouMissglobal oppAimput 0 into dFlagput 0 into eFlagIf attacker = 1 thenput defense-20 into CRTdefenseput oppAim into CRToffenseend ifIf attacker = 2 thenput oppDefense into CRTdefenseput aimPoint-1 into CRToffenseend ifIf CRToffense = 1 thendiceif roll >= 19 then lanceHit else missend ifIf CRToffense = 2 thendiceput 1 into dFlagif roll >= 18 then lanceHit else missput 0 into dFlagend ifIf CRToffense = 3 thendiceput 1 into dFlagif roll >= 17 then lanceHit else missput 0 into dFlagend ifIf CRToffense = 4 thendiceif roll >= 6 then lanceHit else missend ifIf CRToffense = 5 thendiceif roll >= 11 then lanceHit else missend ifIf CRToffense = 6 thendiceput 1 into dFlagif roll >= 19 then lanceHit else missput 0 into dFlagend ifIf CRToffense = 7 thendiceput 1 into eFlagif roll >= 9 then lanceHit else missput 0 into eFlagend ifIf CRToffense = 8 thendiceif roll >= 11 then lanceHit else missend ifIf CRToffense = 9 thendiceput 1 into dFlagif roll >= 17 then lanceHit else missput 0 into dFlagend ifIf CRToffense = 10 thendiceput 1 into dFlagif roll >= 13 then lanceHit else missput 0 into dFlagend ifEnd lrCRT--**********************************************--**********************************************On llCRTglobal attackerglobal CRTdefenseglobal CRToffenseglobal defenseglobal oppDefenseglobal aimPointglobal eFlagglobal dFlagglobal rollglobal tempCompScoreglobal tempYouScoreglobal tempCompMissglobal tempYouMissglobal oppAimput 0 into dFlagput 0 into eFlagIf attacker = 1 thenput defense-20 into CRTdefenseput oppAim into CRToffenseend ifIf attacker = 2 thenput oppDefense into CRTdefenseput aimPoint-1 into CRToffenseend ifIf CRToffense = 1 thendiceif roll >= 15 then lanceHit else missend ifIf CRToffense = 2 thendiceput 1 into eFlagif roll >= 13 then lanceHit else missput 0 into eFlagend ifIf CRToffense = 3 thendiceif roll >= 13 then lanceHit else missend ifIf CRToffense = 4 thendiceput 1 into dFlagif roll >= 17 then lanceHit else missput 0 into dFlagend ifIf CRToffense = 5 thendiceif roll >= 9 then lanceHit else missend ifIf CRToffense = 6 thendiceif roll >= 7 then lanceHit else missend ifIf CRToffense = 7 thendiceput 1 into dFlagif roll >= 15 then lanceHit else missput 0 into dFlagend ifIf CRToffense = 8 thendiceif roll >= 6 then lanceHit else missend ifIf CRToffense = 9 thendiceput 1 into eFlagif roll >= 8 then lanceHit else missput 0 into eFlagend ifIf CRToffense = 10 thendiceput 1 into eFlagif roll >= 4 then lanceHit else missput 0 into eFlagend ifEnd llCRT--**********************************************--**********************************************On ssCRTglobal attackerglobal CRTdefenseglobal CRToffenseglobal defenseglobal oppDefenseglobal aimPointglobal aFlagglobal eFlagglobal dFlagglobal rollglobal tempCompScoreglobal tempYouScoreglobal tempCompMissglobal tempYouMissglobal oppAimput 0 into aFlagput 0 into dFlagput 0 into eFlagIf attacker = 1 thenput defense-20 into CRTdefenseput oppAim into CRToffenseend ifIf attacker = 2 thenput oppDefense into CRTdefenseput aimPoint-1 into CRToffenseend ifIf CRToffense = 1 thendiceput 1 into aFlagif roll >= 13 then lanceHit else missput 0 into aFlagend ifIf CRToffense = 2 thendiceput 1 into eFlagif roll >= 11 then lanceHit else missput 0 into eFlagend ifIf CRToffense = 3 thendiceif roll >= 11 then lanceHit else missend ifIf CRToffense = 4 thendiceif roll >= 6 then lanceHit else missend ifIf CRToffense = 5 thendiceput 1 into eFlagif roll >= 6 then lanceHit else missput 0 into eFlagend ifIf CRToffense = 6 thendiceif roll >= 9 then lanceHit else missend ifIf CRToffense = 7 thendiceif roll >= 5 then lanceHit else missend ifIf CRToffense = 8 thendiceput 1 into eFlagif roll >= 3 then lanceHit else missput 0 into eFlagend ifIf CRToffense = 9 thendiceput 1 into eFlagif roll >= 11 then lanceHit else missput 0 into eFlagend ifIf CRToffense = 10 thendiceif roll >= 6 then lanceHit else missend ifEnd ssCRT--**********************************************--**********************************************On shCRTglobal attackerglobal CRTdefenseglobal CRToffenseglobal defenseglobal oppDefenseglobal aimPointglobal eFlagglobal dFlagglobal rollglobal tempCompScoreglobal tempYouScoreglobal tempCompMissglobal tempYouMissglobal oppAimput 0 into dFlagput 0 into eFlagIf attacker = 1 thenput defense-20 into CRTdefenseput oppAim into CRToffenseend ifIf attacker = 2 thenput oppDefense into CRTdefenseput aimPoint-1 into CRToffenseend ifIf CRToffense = 1 thendiceif roll >= 17 then lanceHit else missend ifIf CRToffense = 2 thendiceif roll >= 15 then lanceHit else missend ifIf CRToffense = 3 thendiceif roll >= 17 then lanceHit else missend ifIf CRToffense = 4 thendiceif roll >= 6 then lanceHit else missend ifIf CRToffense = 5 thendiceif roll >= 9 then lanceHit else missend ifIf CRToffense = 6 thendiceif roll >= 13 then lanceHit else missend ifIf CRToffense = 7 thendiceif roll >= 9 then lanceHit else missend ifIf CRToffense = 8 thendiceif roll >= 6 then lanceHit else missend ifIf CRToffense = 9 thendiceif roll >= 11 then lanceHit else missend ifIf CRToffense = 10 thendiceput 1 into eFlagif roll >= 3 then lanceHit else missput 0 into eFlagend ifEnd shCRT--**********************************************--**********************************************On slCRTglobal attackerglobal CRTdefenseglobal CRToffenseglobal defenseglobal oppDefenseglobal aimPointglobal aFlagglobal eFlagglobal dFlagglobal rollglobal tempCompScoreglobal tempYouScoreglobal tempCompMissglobal tempYouMissglobal oppAimput 0 into aFlagput 0 into dFlagput 0 into eFlagIf attacker = 1 thenput defense-20 into CRTdefenseput oppAim into CRToffenseend ifIf attacker = 2 thenput oppDefense into CRTdefenseput aimPoint-1 into CRToffenseend ifIf CRToffense = 1 thendiceput 1 into aFlagif roll >= 11 then lanceHit else missput 0 into aFlagend ifIf CRToffense = 2 thendiceput 1 into eFlagif roll >= 13 then lanceHit else missput 0 into eFlagend ifIf CRToffense = 3 thendiceput 1 into eFlagif roll >= 15 then lanceHit else missput 0 into eFlagend ifIf CRToffense = 4 thendiceif roll >= 15 then lanceHit else missend ifIf CRToffense = 5 thendiceput 1 into eFlagif roll >= 6 then lanceHit else missput 0 into eFlagend ifIf CRToffense = 6 thendiceif roll >= 11 then lanceHit else missend ifIf CRToffense = 7 thendiceif roll >= 5 then lanceHit else missend ifIf CRToffense = 8 thendiceif roll >= 9 then lanceHit else missend ifIf CRToffense = 9 thendiceif roll >= 13 then lanceHit else missend ifIf CRToffense = 10 thendiceif roll >= 11 then lanceHit else missend ifEnd slCRT--**********************************************--**********************************************On lhCRTglobal attackerglobal CRTdefenseglobal CRToffenseglobal defenseglobal oppDefenseglobal aimPointglobal eFlagglobal dFlagglobal rollglobal tempCompScoreglobal tempYouScoreglobal tempCompMissglobal tempYouMissglobal oppAimput 0 into dFlagput 0 into eFlagIf attacker = 1 thenput defense-20 into CRTdefenseput oppAim into CRToffenseend ifIf attacker = 2 thenput oppDefense into CRTdefenseput aimPoint-1 into CRToffenseend ifIf CRToffense = 1 thendiceif roll >= 19 then lanceHit else missend ifIf CRToffense = 2 thendiceif roll >= 16 then lanceHit else missend ifIf CRToffense = 3 thendiceif roll >= 16 then lanceHit else missend ifIf CRToffense = 4 thendiceif roll >= 9 then lanceHit else missend ifIf CRToffense = 5 thendiceput 1 into eFlagif roll >= 6 then lanceHit else missput 0 into eFlagend ifIf CRToffense = 6 thendiceif roll >= 13 then lanceHit else missend ifIf CRToffense = 7 thendiceif roll >= 9 then lanceHit else missend ifIf CRToffense = 8 thendiceif roll >= 5 then lanceHit else missend ifIf CRToffense = 9 thendiceif roll >= 11 then lanceHit else missend ifIf CRToffense = 10 thendiceif roll >= 11 then lanceHit else missend ifEnd lhCRT--**********************************************</script>
